home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_33_popup - 1bit shape tools.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  2.2 KB  |  96 lines
  1. property pSpriteList, pMemberList, pPressed, pMySprite, pMyMember, pMyMember2, pMyMember3
  2. global gRectStyle, gOvalStyle, gLineSize
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6.   pMyMember = pMySprite.memberNum
  7.   pMyMember2 = pMyMember - 1
  8.   pMyMember3 = pMyMember + 1
  9.   pMemberList = [:]
  10.   repeat with i in pSpriteList
  11.     addProp(pMemberList, i, sprite(i).member.name)
  12.   end repeat
  13.   hidePopup(me)
  14.   gRectStyle = "outline"
  15.   gOvalStyle = "outline"
  16.   gLineSize = 1
  17. end
  18.  
  19. on mouseWithin me
  20.   set the memberNum of sprite pMySprite to pMyMember3
  21.   put "Click to select another shape type." into field "status"
  22. end
  23.  
  24. on mouseLeave me
  25.   set the memberNum of sprite pMySprite to pMyMember
  26.   put EMPTY into field "status"
  27. end
  28.  
  29. on mouseDown me
  30.   pPressed = 1
  31. end
  32.  
  33. on mouseUp me
  34.   set the memberNum of sprite pMySprite to pMyMember3
  35.   liftUp(me)
  36. end
  37.  
  38. on mouseUpOutSide me
  39.   liftUp(me)
  40. end
  41.  
  42. on liftUp me
  43.   pPressed = 0
  44.   hidePopup(me)
  45.   select(me)
  46. end
  47.  
  48. on exitFrame me
  49.   if pPressed then
  50.     showPopup(me)
  51.     s = the rollover
  52.     if pSpriteList.getOne(s) then
  53.       sprite(s).member = member(pMemberList.getProp(s)).number + 1
  54.     end if
  55.   end if
  56. end
  57.  
  58. on hidePopup me
  59.   repeat with i = 1 to pSpriteList.count
  60.     set the memberNum of sprite pMySprite to pMyMember
  61.     sprite(pSpriteList[i]).memberNum = 0
  62.   end repeat
  63. end
  64.  
  65. on showPopup me
  66.   repeat with i in pSpriteList
  67.     set the memberNum of sprite pMySprite to pMyMember2
  68.     sprite(i).member = member(pMemberList.getProp(i))
  69.   end repeat
  70. end
  71.  
  72. on select me
  73.   s = the rollover
  74.   if pSpriteList.getOne(s) then
  75.     set the memberNum of sprite pMySprite to member(pMemberList.getProp(s))
  76.     pMyMember = pMySprite.memberNum
  77.     pMyMember2 = pMyMember - 1
  78.     pMyMember3 = pMyMember + 1
  79.     if pMemberList.getProp(s).word[1] = "rect" then
  80.       gRectStyle = pMemberList.getProp(s).word[2]
  81.       sendSprite(68, #turnMeOn)
  82.     else
  83.       if pMemberList.getProp(s).word[1] = "oval" then
  84.         gOvalStyle = pMemberList.getProp(s).word[2]
  85.         sendSprite(73, #turnMeOn)
  86.       end if
  87.     end if
  88.   end if
  89. end
  90.  
  91. on getPropertyDescriptionList me
  92.   list = [:]
  93.   addProp(list, #pSpriteList, [#comment: "Sprite List", #format: #list, #default: []])
  94.   return list
  95. end
  96.